SET CENT ON
set proc to sospro
set proc to boxproc
DR='N:'
STORE ' ' TO AEANAME,AEAADDR,AEACITY,AEACOUN,AEACURR
STORE .F. TO AEAHEAL,AEADECI
DO START
PL1=0
DO WHILE pl1=0
   SET COLO TO BG+/B
   CLEAR
   DO ADDRESSA
   DO ADDRTITL WITH ' F I L E    M A N A G E M E N T '
   SET COLOR TO W+/N
   @ 9, 5 CLEA TO 18,46
   SET COLO TO N/BG,W+/N
   @ 8, 3 CLEA TO 17,44
   @ 8, 3 TO 17,44 DOUBLE
   @ 9, 5 PROMPT  " A .. MASTER DRUGS LIST               "
   @ 11, 5 PROMPT " B .. MASTER DISPOSABLE LIST          "
   @ 13, 5 PROMPT " I .. INDEXING DRUGS/DISPOSABLE       "
   @ 16, 5 PROMPT " X .. EXIT PROGRAMME "
   MENU TO PL1
   IF LAST()=27
       CLEAR
       RETURN
   ENDIF
   DO CASE
      CASE PL1=1
**         DO INPDRUG
         DO INPDRUG2

      CASE PL1=2
         HLPRO=.F.
**         DO inpdisp
         DO inpdisp2

      CASE PL1=3
         DO INDEPHAR
      CASE PL1=4
         RETURN
   ENDCASE
   PL1=0
ENDDO

